tt a tt St Ht tt HH HH HH Ha 
tt a tt a a tt i 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


tt tt tt st 4 Ht Ht Ht Ht Ht Ht HH HH 
AAA a 
| LE) 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F 1LE®*1D**MTHANINT 


MM MM TTTTTTTTTT HH HH AAAAAA NN NN III] NN NN TTTT 
MM MM TTTTTTTTTT HH H A NN NN III! NN NN TTTT 
MMMM =6MMMM TT HH HH AA AA NN NN I] NN NN 
MMMM MMMM TT HH HH AA AA NN NN I] NN NN 
“a 60MM OMM TT HH HH AA AA NNNN NN I] NNNN NN 
MM 606MM OMM TT HH HH AA AA NNNN N I] NNNN N 
MM MM TT HHHHHHHHHH = AA AA NN NN NN I] NN WN NN 
MM MM TT HHHHHHHHHH =A AA NN NN NN II NN NN NN 
MM MM TT HH HH AAAAAAAAAA NN NNNN I] N NNNN 
MM MM TT HH HH AAAAAAAAAA NN NNNN I] NN NNNN 
MM MM TT HH HH AA AA N NN I] NN NN 
MM MM TT HH HH AA NN NN I] NN NN 
MM MM TT HH HH AA AA NN NN III! NN NN 
MM MM TT HH HH AA AA WN NN HII] NN NN 
LL T1111] SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] $s 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HI! SSSSSSSS 


AAA at tt st 
ee) 


MTHSANINT 
Table of contents 


sg 


HISTOR 
4489 
MTH 


ARATIO 
ANIN 


- Nearest Integer 
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MTHSANINT - Nearest Integer 16-SEP-1984 01:03:45 VAX/VMS Macro V04-00 Pa 1 
1-003 ’ 66-SEP-1984 9:93:32 MTHRTL.SRCIJMTHANINT.MAR; 1 ” 4, 
-TITLE MTHSANINT = Nearest pnteger | 
-IDENT /1-003/ ; File: MTHANINT.MAR 


COPYRIGHT (c) 1978, 1980 ’ 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


1982, 1984 BY 


SOoOoOooooooooooooooooooo 


Jonathan M. Taylor, 28-Jul-77: Version 0 | 
; MODIFIED BY: 


4 
5 
3% ® 
a EE 
0 8 * 2 
000 ;* t 
0 10 ;* . 
0 11 5 * 
$0018 is : 
;* e ® 
00 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
88 0 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 : 18 3* TRANSFERRED. * 
3* * 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD T BE CANSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8 8 Y 3* CORPORATION. * 
3* * 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 3 * | 
0000 5 ;* * 
0000 § PEAR AE EERE REA AA RARE RARE ARATE AAAEEAAARERAAAAREREAKAEAARARERE RARER ee ee | 
0000 3 
0000 8 ; 
0000 $3 ; FACILITY: MATH LIBRARY 
0000 QO ;++ 
0000 1 ; ABSTRACT: 
0000 ¢ : This module contains routine MTHSANINT: 
0000 ; round a floating-point value. 
0000 4; 
0000 3 3 
0000 6 ;-- 
0000 7; 
0000 8 ; VERSION: 1 | 
0000 9; 
0000 40 ; HISTORY: 
0000 41; 
0000 ¢g : AUTHOR: 
0000 re ; 
b000 48; 
000 46 ; 
000 47 ; 
000 48 ; 


Soooooooooooo 


} 
ut HIS S¥oR ee Detailed Current Edit History "e-8 b= 984 91:98:32 ATARI SRESATHANING. MAR; 1 _ 3) 


.SBTTL HISTORY ; Detailed Current Edit History | 


; Edit History for Version 1 of MTHSANINT 


; 
ae 
5 ; 0-3. = Remove MTHSFLAG_JACKET. TNH 5-July-78 
56 ; 1-001 - Yoceys,.vereien humber and copyright notice. JBS 16-NOV-78 
57 ; 1=Rh6 - Add *’."' to the PSECT eieoea ive. JBS 21-DEC-78 
58 ; - Make 7t work. SBL 05-Feb-79 
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MTHSANINT - Nearest Integer 16-SEP-1984 01:03:45 VAX/VMS Macro V04-00 
1-003 DECLARATIONS ° eet ets 1 9:93:52 MTHRTL.SRCJMTHANINT.MAR; 1 
60 .SBTTL DECLARATIONS 
66 : 
65 ; INCLUDE FILES: | 
64 ; NONE 
8 
239 $f : EXTERNAL SYMBOLS 
000 $3 : NONE 
000 0; 
$002 
i 3 
000 73 ; MACROS: 
0000 74; NONE 
0000 75; 
0008 1g 
000 ws 
0000 78 ; PSECT DECLARATIONS: 
00000000 79 -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 0 
0000 1 ¢ 
0000 5 ; EQUATED SYMBOLS: 
0000 83 ; NONE 
0000 84 ; 
0000 85 
0000 86 ; 
0000 87 ; OWN STORAGE: 
0000 88 NONE ‘ 
0000 89 ; 


MTHSANINT 
1-003 


goose 


nteger 16-SEP-1984 01:03:45 VAX/VMS Macro v04-00 P 
return nearest integer as RE eae 9593352 MTHRTL.SRCJMTHANINT.MAR; 1 vet 


: ee -SBTTL MTHSANINT = return nearest integer as REAL*4 
304 
94 ; FUNCTIONAL DESCRIPTION: 

$ 95; Round the argument (away from 0). 

op 

00 

i 

a0 

$00 

000 


CALLING SEQUENCE: 
Nearest_integer.wf.v = MTHSANINT (arg.rf.r) 


; INPUT PARAMETERS: 
The one parameter is a single-precision floating-point value 
and is call=-by-reference. 


000 

0000 IMPLICIT INPUTS: 
0000 NONE 

0000 

0900 OUTPUT PARAMETERS: 
000 NONE 

000 

000 IMPLICIT OUTPUTS: 
0000 NONE 

0000 

0000 COMPLETION CODES: 
0000 NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 
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00 -ENTRY MTHSANINT, “M<> 
41 ADDF3 #0.5, a4(AP), RO ; RO = arg + 0.5 
14 BGTR ; branch if positive 
42 SUBF #1.0, RO ; RO = arg - 0.5 
54 1$ EMODF RO, #0, #1, R1, R1 : R1 = fraction_part (RO) 
42 SUBF2 R1, RO ; RO = integer_part (RO) 
04 RET 
END 
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Symbol table 
MTHSANINT 00000000 RG 01 
$ eww eeooccoccccce + 
! ; Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
ABS 4844 00 ¢ $-} 0 ¢ QO.) NOPIC USR CON ABS LCL wet NOEXE NORD NOWRT NOVEC BYTE 
“MTHSCODE 0000016 ( 2 : © Y wee PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
eocces weeeceeeoeeeesesoees} 
! Performance” indicators 3 
Phase Page faults CPU Time Elapsed Time 
Initialization 37, 00:00:00.09 :00:00.75 
Command processing 118 00:09:00:43 98:08:00 
Pass 66 0:00:00.38 0:00:01.84 
Sa Fagan: sf HESS 880) 88:00 
Symbol table output 1 00:00:00.0 00:00:00-01 
Psect synopsis output 00:00:00.0 0: B88 «Be 
Cross-reference output i So 4 00:00:00.0 
Assembler run totals 26 0:00:01. 00:00:06.90 


The working 3, Limit was 900 poets: 

1410 bytes ‘ pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space vot ney i to hold 1 non-local and 1 local symbols. 
137 source aha were read in Pass 1, progye sea ie object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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Macro Library name Macros defined 
“S25SSDUAZ8:(SYSLIBISTARLET.MLB:20 (i itt 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHANINT/OBJ=OBJ$:MTHANINT MSRC$:MTHANINT/UPDATE=(ENHS:MTHANINT ) 
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